home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / xdos creator (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  42 lines
  1. 10 m=64:print"[147][204][207][193][196][201][206][199] [216][196][207][211]"
  2. 20 m$="c":ifm=64thenm$="a"
  3. 30 forq=150to230step10:c=0:print".";:
  4. 40 readadd$,mem$,csum
  5. 50 h$=add$:gosub140:add=d
  6. 60 h$=left$(mem$,2):ifh$=""goto110
  7. 70 ifleft$(mem$,1)="*"thenh$=m$+right$(h$,1):r=1
  8. 80 mem$=mid$(mem$,3)
  9. 90 gosub140:pokeadd,d:ifr=0thenc=c+d
  10. 100 add=add+1:r=0:goto60
  11. 110 ifcsum<>cthenprint"error in line";q:end
  12. 111 next
  13. 112 print:print:print"[201]nsert the initialized disk which is to"
  14. 114 print"contain [216][196][207][211].  [208]ress a key when ready."
  15. 115 print"           <'q' to [197]xit>"
  16. 116 poke198,0:wait198,1:getk$:poke198,0
  17. 118 ifk$="q"ork$="[209]"then63000
  18. 120 print"[211]aving [216][196][207][211] ..."
  19. 130 poke43,58:poke44,3:poke45,0:poke46,4:save"xdos",8,1
  20. 131 poke44,8:poke43,1:poke45,007:           poke46,14:clr
  21. 133 print"[215]ould you like another ?";
  22. 134 poke198,0:wait198,1:geta$:ifa$<>"n"anda$<>"y"thenpoke53280,rnd(1)*15:goto134
  23. 135 printa$:ifa$="y"then112
  24. 136 goto63000
  25. 140 d=0:fori=1tolen(h$):j=asc(mid$(h$,i,1))-48
  26. 145 d=16*d+j+(j>9)*7:next:return
  27. 150 data33c,ad050385fda9038d0503ad040385fca9518d040360ad0002,2122
  28. 160 data354,c926f0036cfc00a201e8bd0002c921b0f8ca86fb2044*6a9,2942
  29. 170 data36c,002090ffa90ea208a00020baffa5fba201a00220bdffa900,2803
  30. 180 data384,a62ba42c865f846020d5ff9004aa4c37*4862d842e862f84,2493
  31. 190 data39c,3086318432a900a02791318810fba006b9f80391318810f8,2574
  32. 200 data3b4,a200a008e88a9131c8a902913188cae8bd0002c921b0f848,2950
  33. 210 data3cc,8a38f131889131c8c8c8c868d0dea9281865319002e63285,3090
  34. 220 data3e4,31208e*62033*5ad0102c924d0034cc3*64cae*741d22800,1766
  35. 230 data3fc,01000b,12
  36. 63000 rem  connect to loadstar
  37. 63002 print"[147] [205]ake sure your [204][207][193][196][211][212][193][210] disk is in the"
  38. 63004 print"drive.  [208]ress a key when you're ready."
  39. 63006 poke198,0:wait198,1:poke198,0
  40. 63010 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  41. 63020 poke631,13:poke632,13:poke198,2:end
  42.